library(plotly)
df <- read.csv("meninas.csv", stringsAsFactors=FALSE, sep=",")
df_bin <- read.csv("make_binary/meninasbin.csv", stringsAsFactors=FALSE, sep=";")
str(df)
'data.frame': 789 obs. of 18 variables:
$ ID.Aluno : int 100060 100383 100955 101542 101565 101584 101585 101661 101709 102060 ...
$ Sexo : logi FALSE FALSE FALSE FALSE FALSE FALSE ...
$ Data.de.Nascimento : chr "1983-12-31 00:00:00.000" "1977-08-24 00:00:00.000" "1985-09-23 00:00:00.000" "1986-10-23 00:00:00.000" ...
$ UF.birth : chr "DF" "RN" "DF" "RJ" ...
$ Quota : chr "Não" "Não" "Não" "Não" ...
$ School.type : chr "Não Informada" "Não Informada" "Não Informada" "Não Informada" ...
$ Race : chr "Não informado" "Não informado" "Não informado" "Branca " ...
$ Course : chr "Computer Science" "Computer Science" "Computer Licentiate" "Mechatronics Engineering" ...
$ Option : chr "Computer Science" "Computer Science" "Computer Licentiate" "Mechatronics Engineering" ...
$ Entrance.UnB.period : int 20032 20032 20041 20041 20041 20041 20041 20041 20041 20041 ...
$ Entrance.option.period : int 20032 20032 20041 20041 20041 20041 20041 20041 20041 20041 ...
$ Entrance.option.form : chr "Vestibular " "Transferencia Obrigat�ria " "Programa de Avaliação Seriada " "Programa de Avaliação Seriada " ...
$ Leaving.option.period : int 20081 20042 20082 20061 20081 20062 20082 20101 20081 20101 ...
$ Leaving.option.form : chr "Graduated" "Drop out" "Graduated" "Drop out" ...
$ Min.Graduation.Credits : int 240 240 180 274 274 244 240 240 240 244 ...
$ Total.Credits : int 240 6 168 68 151 272 238 236 180 130 ...
$ Paid.in.credits : int 240 6 180 70 165 144 240 240 186 134 ...
$ Créditos.a.integralizar.no.total: int 0 234 0 204 109 100 0 0 54 110 ...
str(df[, 4:14])
'data.frame': 789 obs. of 11 variables:
$ UF.birth : chr "DF" "RN" "DF" "RJ" ...
$ Quota : chr "Não" "Não" "Não" "Não" ...
$ School.type : chr "Não Informada" "Não Informada" "Não Informada" "Não Informada" ...
$ Race : chr "Não informado" "Não informado" "Não informado" "Branca " ...
$ Course : chr "Computer Science" "Computer Science" "Computer Licentiate" "Mechatronics Engineering" ...
$ Option : chr "Computer Science" "Computer Science" "Computer Licentiate" "Mechatronics Engineering" ...
$ Entrance.UnB.period : int 20032 20032 20041 20041 20041 20041 20041 20041 20041 20041 ...
$ Entrance.option.period: int 20032 20032 20041 20041 20041 20041 20041 20041 20041 20041 ...
$ Entrance.option.form : chr "Vestibular " "Transferencia Obrigat�ria " "Programa de Avaliação Seriada " "Programa de Avaliação Seriada " ...
$ Leaving.option.period : int 20081 20042 20082 20061 20081 20062 20082 20101 20081 20101 ...
$ Leaving.option.form : chr "Graduated" "Drop out" "Graduated" "Drop out" ...
library(cdparcoord)
df_aux = df %>%
select(Course, Option, Min.Graduation.Credits, UF.birth)
df_aux <- makeFactor(df_aux,c('Min.Graduation.Credits'))
#df_aux <- makeFactor(df_aux,c('Período.de.saída.da.opção','Periodo.de.Ingresso.na.Unb','Periodo.de.ingresso.na.opção'))
#pe25disc <- discretize(df_aux,nlevels=5)
discparcoord(df_aux,k=1000)
library(cdparcoord)
df_aux = df %>%
select(Leaving.option.period, Leaving.option.form)
#filter((Leaving.option.period >= 19920 & Leaving.option.period < 19951) | (Leaving.option.period > 20010 & Leaving.option.period < 20161))
df_aux <- makeFactor(df_aux,c('Leaving.option.period'))
#df_aux <- makeFactor(df_aux,c('Período.de.saída.da.opção','Periodo.de.Ingresso.na.Unb','Periodo.de.ingresso.na.opção'))
#pe25disc <- discretize(df_aux,nlevels=5)
discparcoord(df_aux,k=1000)
library(cdparcoord)
df_aux = df %>%
select(Leaving.option.period, Leaving.option.form, Entrance.UnB.period, Entrance.option.period)
df_aux <- makeFactor(df_aux,c('Leaving.option.period', 'Entrance.UnB.period', 'Entrance.option.period'))
#df_aux <- makeFactor(df_aux,c('Período.de.saída.da.opção','Entrance.UnB.period','Entrance.option.period'))
#pe25disc <- discretize(df_aux,nlevels=5)
discparcoord(df_aux,k=1000)
library(cdparcoord)
df_aux = df %>%
select(School.type, Entrance.option.period, Quota, Race)
df_aux <- makeFactor(df_aux,c('Entrance.option.period'))
#pe25disc <- discretize(df_aux,nlevels=5)
discparcoord(df_aux,k=1000)
library(cdparcoord)
df_aux = df %>%
select(Entrance.option.form, Total.Credits, Paid.in.credits)
#df_aux <- makeFactor(df_aux,c('Créditos.integralizados.no.total', 'Créditos.cursados.no.total'))
#pe25disc <- discretize(df_aux,nlevels=5)
discparcoord(df_aux,k=1000)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkocGxvdGx5KQoKZGYgPC0gcmVhZC5jc3YoIm1lbmluYXMuY3N2Iiwgc3RyaW5nc0FzRmFjdG9ycz1GQUxTRSwgc2VwPSIsIikKZGZfYmluIDwtIHJlYWQuY3N2KCJtYWtlX2JpbmFyeS9tZW5pbmFzYmluLmNzdiIsIHN0cmluZ3NBc0ZhY3RvcnM9RkFMU0UsIHNlcD0iOyIpCmBgYAoKYGBge3J9CnN0cihkZikKYGBgCgpgYGB7cn0KbGlicmFyeShjZHBhcmNvb3JkKQpkZl9hdXggPSBkZiAlPiUKICBzZWxlY3QoQ291cnNlLCBPcHRpb24sIE1pbi5HcmFkdWF0aW9uLkNyZWRpdHMsIFVGLmJpcnRoKQpkZl9hdXggPC0gbWFrZUZhY3RvcihkZl9hdXgsYygnTWluLkdyYWR1YXRpb24uQ3JlZGl0cycpKQojZGZfYXV4IDwtIG1ha2VGYWN0b3IoZGZfYXV4LGMoJ1BlcsOtb2RvLmRlLnNhw61kYS5kYS5vcMOnw6NvJywnUGVyaW9kby5kZS5JbmdyZXNzby5uYS5VbmInLCdQZXJpb2RvLmRlLmluZ3Jlc3NvLm5hLm9ww6fDo28nKSkKI3BlMjVkaXNjIDwtIGRpc2NyZXRpemUoZGZfYXV4LG5sZXZlbHM9NSkgIApkaXNjcGFyY29vcmQoZGZfYXV4LGs9MTAwMCkKYGBgCgoKYGBge3J9CmxpYnJhcnkoY2RwYXJjb29yZCkKZGZfYXV4ID0gZGYgJT4lCiAgc2VsZWN0KExlYXZpbmcub3B0aW9uLnBlcmlvZCwgTGVhdmluZy5vcHRpb24uZm9ybSkKICAjZmlsdGVyKChMZWF2aW5nLm9wdGlvbi5wZXJpb2QgPj0gMTk5MjAgJiBMZWF2aW5nLm9wdGlvbi5wZXJpb2QgPCAxOTk1MSkgfCAoTGVhdmluZy5vcHRpb24ucGVyaW9kID4gMjAwMTAgJiBMZWF2aW5nLm9wdGlvbi5wZXJpb2QgPCAyMDE2MSkpCmRmX2F1eCA8LSBtYWtlRmFjdG9yKGRmX2F1eCxjKCdMZWF2aW5nLm9wdGlvbi5wZXJpb2QnKSkKI2RmX2F1eCA8LSBtYWtlRmFjdG9yKGRmX2F1eCxjKCdQZXLDrW9kby5kZS5zYcOtZGEuZGEub3DDp8OjbycsJ1BlcmlvZG8uZGUuSW5ncmVzc28ubmEuVW5iJywnUGVyaW9kby5kZS5pbmdyZXNzby5uYS5vcMOnw6NvJykpCiNwZTI1ZGlzYyA8LSBkaXNjcmV0aXplKGRmX2F1eCxubGV2ZWxzPTUpICAKZGlzY3BhcmNvb3JkKGRmX2F1eCxrPTEwMDApCmBgYAoKCgpgYGB7cn0KbGlicmFyeShjZHBhcmNvb3JkKQpkZl9hdXggPSBkZiAlPiUKICBzZWxlY3QoTGVhdmluZy5vcHRpb24ucGVyaW9kLCBMZWF2aW5nLm9wdGlvbi5mb3JtLCBFbnRyYW5jZS5VbkIucGVyaW9kLCBFbnRyYW5jZS5vcHRpb24ucGVyaW9kKQpkZl9hdXggPC0gbWFrZUZhY3RvcihkZl9hdXgsYygnTGVhdmluZy5vcHRpb24ucGVyaW9kJywgJ0VudHJhbmNlLlVuQi5wZXJpb2QnLCAnRW50cmFuY2Uub3B0aW9uLnBlcmlvZCcpKQojZGZfYXV4IDwtIG1ha2VGYWN0b3IoZGZfYXV4LGMoJ0xlYXZpbmcub3B0aW9uLnBlcmlvZCcsJ0VudHJhbmNlLlVuQi5wZXJpb2QnLCdFbnRyYW5jZS5vcHRpb24ucGVyaW9kJykpCiNwZTI1ZGlzYyA8LSBkaXNjcmV0aXplKGRmX2F1eCxubGV2ZWxzPTUpICAKZGlzY3BhcmNvb3JkKGRmX2F1eCxrPTEwMDApCmBgYAoKCgpgYGB7cn0KbGlicmFyeShjZHBhcmNvb3JkKQpkZl9hdXggPSBkZiAlPiUKICBzZWxlY3QoU2Nob29sLnR5cGUsIEVudHJhbmNlLm9wdGlvbi5wZXJpb2QsIFF1b3RhLCBSYWNlKQpkZl9hdXggPC0gbWFrZUZhY3RvcihkZl9hdXgsYygnRW50cmFuY2Uub3B0aW9uLnBlcmlvZCcpKQojcGUyNWRpc2MgPC0gZGlzY3JldGl6ZShkZl9hdXgsbmxldmVscz01KSAgCmRpc2NwYXJjb29yZChkZl9hdXgsaz0xMDAwKQpgYGAKCmBgYHtyfQpsaWJyYXJ5KGNkcGFyY29vcmQpCmRmX2F1eCA9IGRmICU+JQogIHNlbGVjdChFbnRyYW5jZS5vcHRpb24uZm9ybSwgVG90YWwuQ3JlZGl0cywgUGFpZC5pbi5jcmVkaXRzKQojZGZfYXV4IDwtIG1ha2VGYWN0b3IoZGZfYXV4LGMoJ0Nyw6lkaXRvcy5pbnRlZ3JhbGl6YWRvcy5uby50b3RhbCcsICdDcsOpZGl0b3MuY3Vyc2Fkb3Mubm8udG90YWwnKSkKI3BlMjVkaXNjIDwtIGRpc2NyZXRpemUoZGZfYXV4LG5sZXZlbHM9NSkgIApkaXNjcGFyY29vcmQoZGZfYXV4LGs9MTAwMCkKYGBgCgo=